home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / MATHS / ARCAUT / Automatons / FracGrow < prev    next >
Text File  |  1991-07-27  |  468b  |  30 lines
  1. AUTOMATON*
  2.  
  3.   fractal_growth
  4.  
  5.   This Moore neighbourhood automaton grows a family of static fractal
  6.   structures. Try a 128x128 window.
  7.  
  8. INITIALISATION*
  9.  
  10.   10DEF PROCdo
  11.   20*SetEval wrap on
  12.   30INPUT "parameter (1-8) ";i
  13.   40OSCLI("SetEval i "+STR$i)
  14.   50ENDPROC
  15.  
  16. SCREEN*
  17.  
  18.   10DEF PROCdo
  19.   20GCOL 63 TINT 255:POINT 0,0
  20.   30ENDPROC
  21.  
  22. CODE*
  23.  
  24. ( READ_NEIG
  25.   dead SCOUNT_NEIG DUP
  26.     7 = IF (SUM_NEIG 1 - ==)
  27.   <i> = IF (dead         ==)
  28.   CELL                   ==  )
  29.  
  30. END*